/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_1 / issue_06 / pointer / four_point

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1a f4 20 3e 24 | 2e 50 6f 69 6e 74 65 72 |..... >$|.Pointer|
|00000010| 2e 46 6f 75 72 50 6f 69 | 6e 74 0d 00 14 04 0d 00 |.FourPoi|nt......|
|00000020| 1e 27 f4 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.'. ****|********|
|00000030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000040| 2a 2a 2a 2a 2a 0d 00 28 | 27 f4 20 2a 20 20 20 55 |*****..(|'. *   U|
|00000050| 73 69 6e 67 20 66 6f 75 | 72 20 70 6f 69 6e 74 65 |sing fou|r pointe|
|00000060| 72 20 73 68 61 70 65 73 | 20 20 20 2a 0d 00 32 27 |r shapes|   *..2'|
|00000070| f4 20 2a 20 77 72 69 74 | 74 65 6e 20 62 79 20 41 |. * writ|ten by A|
|00000080| 64 72 69 61 6e 20 50 68 | 69 6c 69 70 20 4c 6f 6f |drian Ph|ilip Loo|
|00000090| 6b 20 2a 0d 00 3c 27 f4 | 20 2a 20 20 20 20 20 20 |k *..<'.| *      |
|000000a0| 32 33 72 64 20 46 65 62 | 72 75 61 72 79 20 31 39 |23rd Feb|ruary 19|
|000000b0| 38 38 20 20 20 20 20 20 | 20 2a 0d 00 46 27 f4 20 |88      | *..F'. |
|000000c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000e0| 2a 0d 00 50 04 0d 00 5a | 07 eb 20 39 0d 00 64 0f |*..P...Z|.. 9..d.|
|000000f0| f2 69 6e 69 74 69 61 6c | 69 73 65 0d 00 6e 05 3a |.initial|ise..n.:|
|00000100| 0d 00 78 18 3a 20 f4 20 | 79 6f 75 72 20 6f 77 6e |..x.: . |your own|
|00000110| 20 70 72 6f 67 72 61 6d | 0d 00 82 05 3a 0d 00 8c | program|....:...|
|00000120| 05 e0 0d 00 96 04 0d 00 | a0 10 dd f2 69 6e 69 74 |........|....init|
|00000130| 69 61 6c 69 73 65 0d 00 | aa 11 de 20 62 6c 6f 63 |ialise..|... bloc|
|00000140| 6b 25 20 26 34 30 30 0d | 00 b4 12 de 20 63 6f 6c |k% &400.|.... col|
|00000150| 6f 75 72 73 28 34 2c 38 | 29 0d 00 be 14 f2 73 65 |ours(4,8|).....se|
|00000160| 74 5f 75 70 5f 70 6f 69 | 6e 74 65 72 73 0d 00 c8 |t_up_poi|nters...|
|00000170| 05 3a 0d 00 d2 1f 3a 20 | f4 20 79 6f 75 72 20 6f |.:....: |. your o|
|00000180| 77 6e 20 69 6e 69 74 69 | 61 6c 69 73 61 74 69 6f |wn initi|alisatio|
|00000190| 6e 0d 00 dc 05 3a 0d 00 | e6 04 0d 00 f0 25 f4 20 |n....:..|.....%. |
|000001a0| 2a 2a 2a 20 61 6e 20 65 | 78 61 6d 70 6c 65 20 6f |*** an e|xample o|
|000001b0| 66 20 73 65 6c 65 63 74 | 69 6f 6e 20 2a 2a 2a 0d |f select|ion ***.|
|000001c0| 00 fa 04 0d 01 04 28 87 | 3a f1 22 53 65 6c 65 63 |......(.|:."Selec|
|000001d0| 74 20 70 6f 69 6e 74 65 | 72 3a 20 5b 31 5d 20 5b |t pointe|r: [1] [|
|000001e0| 32 5d 20 5b 33 5d 20 5b | 34 5d 22 0d 01 0e 0c 6e |2] [3] [|4]"....n|
|000001f0| 75 6d 62 65 72 3d 31 0d | 01 18 05 f5 0d 01 22 12 |umber=1.|......".|
|00000200| c8 97 20 78 2c 79 2c 62 | 75 74 74 6f 6e 73 0d 01 |.. x,y,b|uttons..|
|00000210| 23 1a 64 78 3d 78 20 81 | 20 33 32 3a 64 79 3d 33 |#.dx=x .| 32:dy=3|
|00000220| 31 2d 79 20 81 20 33 32 | 0d 01 2c 0c e7 20 64 79 |1-y . 32|..,.. dy|
|00000230| 3d 30 20 8c 0d 01 36 0b | c8 8e 20 64 78 20 ca 0d |=0 ...6.|.. dx ..|
|00000240| 01 40 13 c9 20 31 37 20 | 3a 20 6e 75 6d 62 65 72 |.@.. 17 |: number|
|00000250| 3d 31 0d 01 4a 13 c9 20 | 32 31 20 3a 20 6e 75 6d |=1..J.. |21 : num|
|00000260| 62 65 72 3d 32 0d 01 54 | 13 c9 20 32 35 20 3a 20 |ber=2..T|.. 25 : |
|00000270| 6e 75 6d 62 65 72 3d 33 | 0d 01 5e 13 c9 20 32 39 |number=3|..^.. 29|
|00000280| 20 3a 20 6e 75 6d 62 65 | 72 3d 34 0d 01 68 05 cb | : numbe|r=4..h..|
|00000290| 0d 01 72 05 cd 0d 01 73 | 32 e7 20 64 79 3d 30 20 |..r....s|2. dy=0 |
|000002a0| 84 20 62 75 74 74 6f 6e | 73 3d 30 20 8c 20 ec 20 |. button|s=0 . . |
|000002b0| 78 2c 79 20 8b 20 e6 20 | 30 2c 62 75 74 74 6f 6e |x,y . . |0,button|
|000002c0| 73 3a df 20 78 2c 79 0d | 01 7c 1b f2 73 65 6c 65 |s:. x,y.|.|..sele|
|000002d0| 63 74 5f 70 6f 69 6e 74 | 65 72 28 6e 75 6d 62 65 |ct_point|er(numbe|
|000002e0| 72 29 0d 01 86 07 fd 20 | a3 0d 01 90 05 e1 0d 01 |r)..... |........|
|000002f0| 9a 04 0d 01 a4 0b dd f2 | 74 61 62 6c 65 0d 01 ae |........|table...|
|00000300| 13 74 61 62 6c 65 3d 62 | 6c 6f 63 6b 25 2b 31 39 |.table=b|lock%+19|
|00000310| 0d 01 b8 12 62 6c 6f 63 | 6b 25 3f 36 3d 74 61 62 |....bloc|k%?6=tab|
|00000320| 6c 65 0d 01 c2 19 62 6c | 6f 63 6b 25 3f 37 3d 74 |le....bl|ock%?7=t|
|00000330| 61 62 6c 65 20 81 20 26 | 31 30 30 0d 01 cc 1b 62 |able . &|100....b|
|00000340| 6c 6f 63 6b 25 3f 38 3d | 74 61 62 6c 65 20 81 20 |lock%?8=|table . |
|00000350| 26 31 30 30 30 30 0d 01 | d6 1d 62 6c 6f 63 6b 25 |&10000..|..block%|
|00000360| 3f 39 3d 74 61 62 6c 65 | 20 81 20 26 31 30 30 30 |?9=table| . &1000|
|00000370| 30 30 30 0d 01 e0 05 e1 | 0d 01 ea 04 0d 01 f4 15 |000.....|........|
|00000380| dd f2 73 65 74 5f 75 70 | 5f 70 6f 69 6e 74 65 72 |..set_up|_pointer|
|00000390| 73 0d 01 f5 0c 2a 50 4f | 49 4e 54 45 52 0d 01 fe |s....*PO|INTER...|
|000003a0| 18 f2 72 65 61 64 5f 73 | 79 73 74 65 6d 5f 63 6f |..read_s|ystem_co|
|000003b0| 6c 6f 75 72 73 0d 02 08 | 1a e3 20 70 6f 69 6e 74 |lours...|.. point|
|000003c0| 65 72 5f 6e 75 6d 62 65 | 72 3d 32 20 b8 20 34 0d |er_numbe|r=2 . 4.|
|000003d0| 02 12 0f f3 20 66 69 6c | 65 6e 61 6d 65 24 0d 02 |.... fil|ename$..|
|000003e0| 1c 15 e7 20 66 69 6c 65 | 6e 61 6d 65 24 3c 3e 22 |... file|name$<>"|
|000003f0| 22 20 8c 0d 02 26 40 ff | 28 22 4c 4f 41 44 20 22 |" ...&@.|("LOAD "|
|00000400| 2b 66 69 6c 65 6e 61 6d | 65 24 2b 22 20 22 2b c3 |+filenam|e$+" "+.|
|00000410| 7e 28 62 6c 6f 63 6b 25 | 29 29 20 20 3a 20 f4 20 |~(block%|))  : . |
|00000420| 73 65 74 20 75 70 20 70 | 6f 69 6e 74 65 72 20 64 |set up p|ointer d|
|00000430| 61 74 61 0d 02 30 31 62 | 6c 6f 63 6b 25 3f 31 3d |ata..01b|lock%?1=|
|00000440| 70 6f 69 6e 74 65 72 5f | 6e 75 6d 62 65 72 20 20 |pointer_|number  |
|00000450| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000460| 20 20 20 3a 0d 02 3a 2e | f2 74 61 62 6c 65 20 20 |   :..:.|.table  |
|00000470| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000480| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000490| 20 3a 0d 02 44 04 0d 02 | 4e 41 c8 99 20 22 4f 53 | :..D...|NA.. "OS|
|000004a0| 5f 57 6f 72 64 22 2c 26 | 31 35 2c 62 6c 6f 63 6b |_Word",&|15,block|
|000004b0| 25 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |%       |        |
|000004c0| 20 20 20 20 20 3a 20 f4 | 20 64 65 66 69 6e 65 20 |     : .| define |
|000004d0| 70 6f 69 6e 74 65 72 0d | 02 58 2e f2 72 65 61 64 |pointer.|.X..read|
|000004e0| 5f 63 6f 6c 6f 75 72 73 | 20 20 20 20 20 20 20 20 |_colours|        |
|000004f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000500| 20 20 20 20 3a 0d 02 62 | 05 cd 0d 02 6c 14 ed 20 |    :..b|....l.. |
|00000510| 70 6f 69 6e 74 65 72 5f | 6e 75 6d 62 65 72 0d 02 |pointer_|number..|
|00000520| 76 05 e1 0d 02 80 04 0d | 02 8a 12 dd f2 72 65 61 |v.......|.....rea|
|00000530| 64 5f 63 6f 6c 6f 75 72 | 73 0d 02 94 11 e3 20 64 |d_colour|s..... d|
|00000540| 75 6d 6d 79 3d 30 20 b8 | 20 38 0d 02 9e 34 63 6f |ummy=0 .| 8...4co|
|00000550| 6c 6f 75 72 73 28 70 6f | 69 6e 74 65 72 5f 6e 75 |lours(po|inter_nu|
|00000560| 6d 62 65 72 2c 64 75 6d | 6d 79 29 3d 3f 28 62 6c |mber,dum|my)=?(bl|
|00000570| 6f 63 6b 25 2b 31 30 2b | 64 75 6d 6d 79 29 0d 02 |ock%+10+|dummy)..|
|00000580| a8 0b ed 20 64 75 6d 6d | 79 0d 02 b2 05 e1 0d 02 |... dumm|y.......|
|00000590| bc 04 0d 02 c6 19 dd f2 | 72 65 61 64 5f 73 79 73 |........|read_sys|
|000005a0| 74 65 6d 5f 63 6f 6c 6f | 75 72 73 0d 02 d0 12 63 |tem_colo|urs....c|
|000005b0| 6f 6c 6f 75 72 73 28 31 | 2c 30 29 3d 30 0d 02 da |olours(1|,0)=0...|
|000005c0| 14 63 6f 6c 6f 75 72 73 | 28 31 2c 31 29 3d 32 35 |.colours|(1,1)=25|
|000005d0| 35 0d 02 e4 14 63 6f 6c | 6f 75 72 73 28 31 2c 32 |5....col|ours(1,2|
|000005e0| 29 3d 32 35 35 0d 02 ee | 04 0d 02 f8 12 63 6f 6c |)=255...|.....col|
|000005f0| 6f 75 72 73 28 31 2c 33 | 29 3d 30 0d 03 02 12 63 |ours(1,3|)=0....c|
|00000600| 6f 6c 6f 75 72 73 28 31 | 2c 34 29 3d 30 0d 03 0c |olours(1|,4)=0...|
|00000610| 14 63 6f 6c 6f 75 72 73 | 28 31 2c 35 29 3d 32 35 |.colours|(1,5)=25|
|00000620| 35 0d 03 16 05 e1 0d 03 | 20 04 0d 03 2a 1c dc 22 |5.......| ...*.."|
|00000630| 68 61 6e 64 22 2c 22 6d | 61 6e 22 2c 22 73 74 61 |hand","m|an","sta|
|00000640| 72 74 72 65 6b 22 0d 03 | 34 04 0d 03 3e 1c dd f2 |rtrek"..|4...>...|
|00000650| 73 65 6c 65 63 74 5f 70 | 6f 69 6e 74 65 72 28 6e |select_p|ointer(n|
|00000660| 75 6d 62 65 72 29 0d 03 | 48 1d e7 20 6e 75 6d 62 |umber)..|H.. numb|
|00000670| 65 72 3e 34 20 84 20 6e | 75 6d 62 65 72 3c 30 20 |er>4 . n|umber<0 |
|00000680| 8c 20 e1 0d 03 52 40 c8 | 97 20 fb 20 31 2c 63 6f |. ...R@.|. . 1,co|
|00000690| 6c 6f 75 72 73 28 6e 75 | 6d 62 65 72 2c 30 29 2c |lours(nu|mber,0),|
|000006a0| 63 6f 6c 6f 75 72 73 28 | 6e 75 6d 62 65 72 2c 31 |colours(|number,1|
|000006b0| 29 2c 63 6f 6c 6f 75 72 | 73 28 6e 75 6d 62 65 72 |),colour|s(number|
|000006c0| 2c 32 29 0d 03 5c 40 c8 | 97 20 fb 20 32 2c 63 6f |,2)..\@.|. . 2,co|
|000006d0| 6c 6f 75 72 73 28 6e 75 | 6d 62 65 72 2c 33 29 2c |lours(nu|mber,3),|
|000006e0| 63 6f 6c 6f 75 72 73 28 | 6e 75 6d 62 65 72 2c 34 |colours(|number,4|
|000006f0| 29 2c 63 6f 6c 6f 75 72 | 73 28 6e 75 6d 62 65 72 |),colour|s(number|
|00000700| 2c 35 29 0d 03 66 40 c8 | 97 20 fb 20 33 2c 63 6f |,5)..f@.|. . 3,co|
|00000710| 6c 6f 75 72 73 28 6e 75 | 6d 62 65 72 2c 36 29 2c |lours(nu|mber,6),|
|00000720| 63 6f 6c 6f 75 72 73 28 | 6e 75 6d 62 65 72 2c 37 |colours(|number,7|
|00000730| 29 2c 63 6f 6c 6f 75 72 | 73 28 6e 75 6d 62 65 72 |),colour|s(number|
|00000740| 2c 38 29 0d 03 70 0f c8 | 97 20 ee 20 6e 75 6d 62 |,8)..p..|. . numb|
|00000750| 65 72 0d 03 7a 05 e1 0d | ff                      |er..z...|.       |
+--------+-------------------------+-------------------------+--------+--------+